/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / share / 17 / dings_e.exe / Projects / Samples / Control / Gosub.src

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 13 24 24 44 69 6e 67 73 | 5f 50 72 6f 6a 65 63 74 |.$$Dings|_Project|
|00000010| 46 69 6c 65 2e 00 00 00 | 46 72 61 6d 65 72 61 74 |File....|Framerat|
|00000020| 65 20 36 30 20 52 65 73 | 6f 6c 75 74 69 6f 6e 20 |e 60 Res|olution |
|00000030| 30 20 46 75 6c 6c 73 63 | 72 65 65 6e 20 30 20 44 |0 Fullsc|reen 0 D|
|00000040| 65 62 75 67 20 31 ff 4d | 02 2f 2f 20 2d 2d 2d 2d |ebug 1.M|.// ----|
|00000050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 2f 2f 0d 0a 2f 2f |--------|- //..//|
|00000090| 20 47 4f 53 55 42 0d 0a | 2f 2f 20 2d 2d 2d 2d 2d | GOSUB..|// -----|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 20 2f 2f 0d 0a 0d 0a 2f |--------| //..../|
|000000e0| 2f 20 47 4f 53 55 42 20 | 73 75 62 63 6f 64 65 3b |/ GOSUB |subcode;|
|000000f0| 20 3c 2d 3e 20 52 45 54 | 55 52 4e 3b 0d 0a 0d 0a | <-> RET|URN;....|
|00000100| 61 24 3d 22 2d 22 0d 0a | 47 4f 53 55 42 20 53 65 |a$="-"..|GOSUB Se|
|00000110| 74 75 70 0d 0a 50 52 49 | 4e 54 20 61 24 2c 20 30 |tup..PRI|NT a$, 0|
|00000120| 2c 20 30 0d 0a 53 48 4f | 57 53 43 52 45 45 4e 0d |, 0..SHO|WSCREEN.|
|00000130| 0a 2f 2f 20 45 6e 64 65 | 20 64 65 73 20 48 61 75 |.// Ende| des Hau|
|00000140| 70 74 70 72 6f 67 72 61 | 6d 6d 73 20 2f 20 45 6e |ptprogra|mms / En|
|00000150| 64 20 6f 66 20 6d 61 69 | 6e 20 70 72 6f 67 72 61 |d of mai|n progra|
|00000160| 6d 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 2f 2f 20 41 62 |m.......|...// Ab|
|00000170| 20 68 69 65 72 20 6e 75 | 72 20 6e 6f 63 68 20 53 | hier nu|r noch S|
|00000180| 55 42 73 0d 0a 2f 2f 20 | 41 62 20 68 69 65 72 20 |UBs..// |Ab hier |
|00000190| 6b 65 69 6e 20 43 6f 64 | 65 20 61 75 73 73 65 72 |kein Cod|e ausser|
|000001a0| 68 61 6c 62 20 76 6f 6e | 20 53 55 42 20 75 6e 64 |halb von| SUB und|
|000001b0| 20 45 4e 44 53 55 42 20 | 21 21 0d 0a 0d 0a 2f 2f | ENDSUB |!!....//|
|000001c0| 20 46 72 6f 6d 20 68 65 | 72 65 20 6f 6e 20 6a 75 | From he|re on ju|
|000001d0| 73 74 20 53 55 42 73 0d | 0a 2f 2f 20 4e 6f 20 6d |st SUBs.|.// No m|
|000001e0| 6f 72 65 20 63 6f 64 65 | 20 6f 75 74 20 6f 66 20 |ore code| out of |
|000001f0| 53 55 42 20 61 6e 64 20 | 45 4e 44 53 55 42 0d 0a |SUB and |ENDSUB..|
|00000200| 0d 0a 53 55 42 20 53 65 | 74 75 70 3a 0d 0a 20 20 |..SUB Se|tup:..  |
|00000210| 61 24 3d 22 53 65 74 75 | 70 5f 43 6f 6d 70 6c 65 |a$="Setu|p_Comple|
|00000220| 74 65 22 0d 0a 20 20 52 | 45 54 55 52 4e 20 20 20 |te"..  R|ETURN   |
|00000230| 20 20 20 20 20 20 20 2f | 2f 20 5a 75 72 fc 63 6b |       /|/ Zur.ck|
|00000240| 20 7a 75 6d 20 47 4f 53 | 55 42 20 2f 2f 20 42 61 | zum GOS|UB // Ba|
|00000250| 63 6b 20 74 6f 20 47 4f | 53 55 42 20 63 61 6c 6c |ck to GO|SUB call|
|00000260| 0d 0a 20 20 61 24 3d 22 | 44 61 73 20 65 72 73 63 |..  a$="|Das ersc|
|00000270| 68 65 69 6e 74 20 6e 69 | 65 20 2f 20 54 68 69 73 |heint ni|e / This|
|00000280| 20 77 6f 6e 27 74 20 61 | 70 70 65 61 72 22 0d 0a | won't a|ppear"..|
|00000290| 45 4e 44 53 55 42       |                         |ENDSUB  |        |
+--------+-------------------------+-------------------------+--------+--------+